Public Class Model
	Implements IRenderable
	Private bRender As Boolean = True

	Public Sub New()

	End Sub

	Public Sub Render() Implements IRenderable.Render
		If Me.bRender = False Then Exit Sub
		'render
	End Sub

	Public Function getRender() As Boolean Implements IRenderable.getRender
		Return Me.bRender
	End Function

	Public Sub setRender(ByVal value As Boolean) Implements IRenderable.setRender
		Me.bRender = value
	End Sub
End Class
